ocr: Familia = Text5.Text For I=1To 5 If Familia = Sesia (I).Familia Then Sredn 0 For J To 3 Sredn = Sredn + Sesia(1).RezultExam (J) Next J Sredn L Sredn / 3 End If Next I Text6.Text = Strs (Sredn) End Sub Private Sub Form Load() Label2.Caption - "ouauka' Label3.Caption l "Maremaruka Label4.Caption = "Wcropna' - command2.Enabled = False commandl.Enabled = True I= I+1 End Sub